home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 August: Tool Chest / Dev.CD Aug 00 TC Disk 2.toast / pc / sample code / interapplication comm / 7edit / source / svaegetdata.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-06-23  |  14.2 KB  |  499 lines
  1. /*
  2.     File:        SVAEGetData.c
  3.  
  4.     Contains:    
  5.  
  6.     Written by: Original version by Jon Lansdell and Nigel Humphreys.
  7.                 3.1 updates by Greg Sutton.
  8.  
  9.     Copyright:    Copyright © 1995-1999 by Apple Computer, Inc., All Rights Reserved.
  10.  
  11.                 You may incorporate this Apple sample source code into your program(s) without
  12.                 restriction. This Apple sample source code has been provided "AS IS" and the
  13.                 responsibility for its operation is yours. You are not permitted to redistribute
  14.                 this Apple sample source code as "Apple sample source code" after having made
  15.                 changes. If you're going to re-distribute the source, we require that you make
  16.                 it clear in the source that the code was descended from Apple sample source
  17.                 code, but that you've made changes.
  18.  
  19.     Change History (most recent first):
  20.                 7/20/1999    Karl Groethe    Updated for Metrowerks Codewarror Pro 2.1
  21.                 
  22.  
  23. */
  24.  
  25. #include "SVAEGetData.h"
  26.  
  27. #include "SVEditWindow.h"
  28. #include "SVEditGlobals.h"
  29. #include "SVEditAEUtils.h"
  30. #include "SVAppleEvents.h"
  31.  
  32. #include "SVAETextUtils.h"
  33. #include "SVAEWindowUtils.h"
  34. #include "SVAEAccessors.h"
  35. #include "SVAERecording.h"
  36. #include "SVToken.h"
  37.  
  38.  
  39. #include <AEPackObject.h>
  40. #include <Resources.h>
  41. #include <Script.h>
  42.  
  43.  
  44.  
  45. extern short        gRefNum;
  46.  
  47. // -----------------------------------------------------------------------
  48. //        Name:             DoGetData
  49. //        Purpose:        Handles the GetData AppleEvent.
  50. // -----------------------------------------------------------------------
  51.  
  52. pascal OSErr     DoGetData(const AppleEvent    *theAppleEvent,
  53.                                 AppleEvent    *reply,
  54.                                 long        handlerRefCon)
  55. { 
  56. #pragma unused (handlerRefCon)
  57.  
  58.     AEDesc        directObj = {typeNull, NULL},
  59.                 result = {typeNull, NULL};
  60.     Size        actualSize;
  61.     DescType    returnedType;
  62.     DescType    reqType;
  63.     OSErr        reqTypeErr,
  64.                 err;
  65.     
  66.         // extract the direct object, which is the object
  67.         // whose data is to be returned
  68.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeWildCard, &directObj);
  69.     if (noErr != err) goto done;
  70.         
  71.         // now the get the type of data wanted - optional
  72.     reqTypeErr = AEGetParamPtr(theAppleEvent, keyAERequestedType, typeType,
  73.                                 &returnedType, (Ptr)&reqType, sizeof(reqType), &actualSize);
  74.         
  75.     err = GotRequiredParams(theAppleEvent);
  76.     if (noErr != err) goto done;
  77.     
  78.         // get the data
  79.     err = HandleGetData(&directObj, &result);
  80.         
  81.     err = AddResultToReply(&result, reply, err);
  82.  
  83. done:                
  84.     if (directObj.dataHandle)
  85.           AEDisposeDesc(&directObj);
  86.     if (result.dataHandle)
  87.           AEDisposeDesc(&result);
  88.         
  89.     return(err);
  90. }    // DoGetData
  91.  
  92.  
  93. // -----------------------------------------------------------------------
  94. //    Name:         HandleGetData
  95. //    Purpose:    Coerces theObj into a token which we understand and
  96. //                extracts the data requested in the token and puts it
  97. //                into dataDesc.
  98. // -----------------------------------------------------------------------
  99.  
  100. OSErr    HandleGetData(AEDesc *theObj, AEDesc *dataDesc)
  101. {
  102.     TextToken       theTextToken;
  103.     Size            tokenSize;
  104.     AEDesc          objTokenDesc = {typeNull, NULL},
  105.                     itemDesc = {typeNull, NULL},
  106.                     resultDesc = {typeNull, NULL};
  107.     long            index;
  108.     DescType        returnedType;
  109.     OSErr           err;
  110.  
  111.             //    Coerce theObj into a token which we can use - 
  112.             //        this may involve converting a list of tokens to a list of property tokens
  113.     if (typeObjectSpecifier == theObj->descriptorType)
  114.         err = AEResolve(theObj, kAEIDoMinimum, &objTokenDesc);
  115.     else    // Otherwise, just copy it
  116.         err = AEDuplicateDesc(theObj, &objTokenDesc);
  117.     
  118.     if (noErr != err) goto done;
  119.     
  120.     switch (objTokenDesc.descriptorType)
  121.     {
  122.         case typeMyApplProp:
  123.             err = GetApplicationProperty(&objTokenDesc, dataDesc);
  124.             break;
  125.             
  126.         case typeMyTextProp:
  127.             err = GetTextProperty(&objTokenDesc, dataDesc);
  128.             break;
  129.             
  130.         case typeMyWindowProp:
  131.             err = DoGetWindowProperty(&objTokenDesc, dataDesc);
  132.             break;
  133.             
  134.         case typeMyText:
  135.             GetRawDataFromDescriptor(&objTokenDesc, (Ptr)&theTextToken,
  136.                                         sizeof(theTextToken), &tokenSize);
  137.             
  138.             err = GetTextTextProperty(&theTextToken, dataDesc);
  139.             break;
  140.             
  141.         case typeAEList:
  142.             err = AECountItems(&objTokenDesc, &index);
  143.             if (noErr != err) goto done;
  144.     
  145.             for (; index > 0; index--)
  146.             {
  147.                 err = AEGetNthDesc(&objTokenDesc, index, typeWildCard, &returnedType, &itemDesc);
  148.     
  149.                 if (noErr == err)        // Call this function recursively if necessary
  150.                     err = HandleGetData(&itemDesc, &resultDesc);
  151.                 
  152.                 if (noErr == err)        // Overwrite item in list with descriptor item
  153.                     err = AEPutDesc(&objTokenDesc, index, &resultDesc);
  154.                                                         // objTokenDesc is just a copy anyway.
  155.                 if (itemDesc.dataHandle)
  156.                     AEDisposeDesc(&itemDesc);
  157.                 if (resultDesc.dataHandle)
  158.                     AEDisposeDesc(&resultDesc);
  159.             }
  160.             
  161.             err = AEDuplicateDesc(&objTokenDesc, dataDesc);        // Copy list into result
  162.             break;
  163.             
  164.         default:    
  165.             err = errAEWrongDataType;
  166.     }
  167.  
  168. done:
  169.     if (objTokenDesc.dataHandle)
  170.         AEDisposeDesc(&objTokenDesc);
  171.     
  172.     return(err);
  173. } // HandleGetData
  174.  
  175.  
  176. // Get the actual data for a text token - rather than just offset and length
  177. // used internally.
  178.  
  179. OSErr    GetTextTextProperty(TextToken* theToken, AEDesc *dataDesc)
  180. {
  181.     TEHandle    aTEH;
  182.     short        anOffset,
  183.                 aLength;
  184.     OSErr        err;
  185.     
  186.     aTEH = TEHandleFromTextToken(theToken);
  187.     anOffset = theToken->tokenOffset;
  188.     aLength = theToken->tokenLength;
  189.     
  190.     err = BuildStyledTextDesc(aTEH, anOffset, aLength, dataDesc);
  191.  
  192.     return(err);
  193. }
  194.  
  195. // -----------------------------------------------------------------------
  196. //    Name:         GetTextProperty
  197. //    Purpose:    Fills dataDesc with the requested text property.
  198. // -----------------------------------------------------------------------
  199.      
  200. OSErr GetTextProperty(const AEDesc *theTokenDesc, AEDesc *dataDesc)
  201. {
  202.     DPtr          theDocument;
  203.     TEHandle      theHTE;
  204.     Str255        fontName;
  205.     TextStyle     theTextStyle;
  206.     short         lineHeight;
  207.     short         fontAscent;
  208.     TextPropToken theTextPropToken;
  209.     Size          tokenSize;
  210.     AEDesc        tempDesc;
  211.     OSErr         err;
  212.     
  213.     err = AECoerceDesc(theTokenDesc, typeMyTextProp, &tempDesc);
  214.     if (noErr != err) goto done;
  215.     
  216.     GetRawDataFromDescriptor(&tempDesc, (Ptr)&theTextPropToken,
  217.                                     sizeof(theTextPropToken), &tokenSize);
  218.  
  219.     // For each property we build a descriptor to be returned as the reply.
  220.             
  221.     theDocument = DPtrFromWindowPtr(theTextPropToken.tokenTextToken.tokenWindow);
  222.     theHTE = theDocument->theText;
  223.     
  224.     TEGetStyle(theTextPropToken.tokenTextToken.tokenOffset - 1, &theTextStyle,
  225.                                                 &lineHeight, &fontAscent, theHTE);
  226.     
  227.     switch (theTextPropToken.tokenProperty)
  228.     {
  229.         case pText:
  230.         case pContents:
  231.             err = GetTextTextProperty(&(theTextPropToken.tokenTextToken), dataDesc);
  232.             break;
  233.             
  234.         case pFont: 
  235.             GetFontName(theTextStyle.tsFont, fontName);
  236.             
  237.             err = AECreateDesc(typeChar,  (Ptr)&fontName[1], fontName[0], dataDesc);
  238.             break;
  239.         
  240.         case pTextStyles: 
  241.             err = BuildTextStylesDesc(theTextStyle.tsFace, dataDesc);
  242.             break;
  243.  
  244.         case pPointSize: 
  245.             err = CreateOffsetDescriptor(theTextStyle.tsSize, dataDesc);
  246.             break;
  247.  
  248.         case pScriptTag: 
  249.             err = CreateOffsetDescriptor(smSystemScript, dataDesc);
  250.             break;
  251.         
  252.         case pColor: 
  253.             err = AECreateDesc(typeRGBColor, (Ptr)&theTextStyle.tsColor,
  254.                                         sizeof(theTextStyle.tsColor), dataDesc);
  255.             break;
  256.             
  257.         case pLength:
  258.             tokenSize = theTextPropToken.tokenTextToken.tokenLength;
  259.             err = AECreateDesc(typeInteger, (Ptr)&tokenSize,
  260.                                 sizeof(tokenSize), dataDesc);
  261.             break;
  262.             
  263.         case pOffset:
  264.             tokenSize = theTextPropToken.tokenTextToken.tokenOffset;
  265.             err = AECreateDesc(typeInteger, (Ptr)&tokenSize,
  266.                                 sizeof(tokenSize), dataDesc);
  267.             break;
  268.             
  269.         default:
  270.             err = errAEEventNotHandled;
  271.     }
  272.  
  273. done:
  274.     if (tempDesc.dataHandle)
  275.         AEDisposeDesc(&tempDesc);
  276.     
  277.     return(err);
  278. } // GetTextProperty
  279.     
  280. // -----------------------------------------------------------------------
  281. //        Name:             GetWindowProperty
  282. //        Purpose:        Fills dataDesc with the requested window property.
  283. // -----------------------------------------------------------------------
  284. typedef Rect **RectHandle;
  285.  
  286. OSErr    DoGetWindowProperty(const AEDesc *theWPTokenObj, AEDesc *dataDesc)
  287. {             
  288.     Str255          theName;
  289.     Boolean         theBoolean;
  290.     Rect            theRect;
  291.     Point           thePoint;
  292.     Rect            winRect;
  293.     Rect            userRect;
  294.     short           theIndex;
  295.     DPtr            docPtr;
  296.     TEHandle        theHTE;
  297.     GrafPtr         savePort;
  298.     WindowPropToken theWindowPropToken;
  299.     AEDesc          tempDesc = {typeNull, NULL};
  300.     Size            tokenSize;
  301.     OSErr           err;
  302.     
  303.     err = AECoerceDesc(theWPTokenObj,typeMyWindowProp, &tempDesc);
  304.     if (noErr != err) goto done;
  305.     
  306.     GetRawDataFromDescriptor(&tempDesc, (Ptr)&theWindowPropToken,
  307.                                 sizeof(theWindowPropToken),  &tokenSize);
  308.     
  309.     switch (theWindowPropToken.tokenProperty)
  310.     {
  311.         case pName:
  312.             GetWTitle(theWindowPropToken.tokenWindowToken.tokenWindow, theName);
  313.             err = AECreateDesc(typeChar, (Ptr)&theName[1], theName[0], dataDesc);
  314.             break;
  315.             
  316.         case pText:
  317.         case pContents:
  318.             docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  319.             theHTE = docPtr->theText;
  320.             err = BuildStyledTextDesc(theHTE, 1, (**theHTE).teLength, dataDesc);
  321.             break;
  322.             
  323.         case pBounds:
  324.             GetPort(&savePort);
  325.             SetPort(theWindowPropToken.tokenWindowToken.tokenWindow);
  326.             theRect = (*((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->strucRgn)->rgnBBox;
  327.             err = AECreateDesc(typeQDRectangle, (Ptr)&theRect, sizeof(theRect), dataDesc);
  328.             SetPort(savePort);
  329.             break;
  330.             
  331.         case pPosition:
  332.             thePoint.v = (*((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->strucRgn)->rgnBBox.top;
  333.             thePoint.h = (*((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->strucRgn)->rgnBBox.left;
  334.             err= AECreateDesc(typeQDPoint, (Ptr)&thePoint, sizeof(thePoint), dataDesc);
  335.             break;
  336.             
  337.         case pVisible:
  338.             theBoolean = ((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->visible;
  339.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  340.             break;
  341.             
  342.         case pIsModal:
  343.         case pIsFloating:
  344.             theBoolean = false;
  345.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  346.             break;
  347.             
  348.         case pIsZoomed:
  349.             if (((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->spareFlag)
  350.             {
  351.                 GetPort(&savePort);
  352.                 SetPort(theWindowPropToken.tokenWindowToken.tokenWindow);
  353.                 
  354.                 userRect = **((RectHandle)((WindowPeek)qd.thePort)->dataHandle);
  355.                 winRect  = qd.thePort->portRect;
  356.                 LocalToGlobal((Point *)&winRect.top);
  357.                 LocalToGlobal((Point *)&winRect.bottom);
  358.                 
  359.                 theBoolean = ! EqualRect(&userRect, &winRect);
  360.                 SetPort(savePort);
  361.             }
  362.             else
  363.                 theBoolean = false;
  364.                             
  365.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  366.             break;
  367.             
  368.         case pIsResizable:
  369.         case pHasTitleBar:
  370.         case pHasCloseBox:
  371.         case pIsZoomable:
  372.             theBoolean = true;
  373.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  374.             break;
  375.             
  376.         case pIsModified:
  377.             docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  378.             theBoolean = docPtr->dirty;
  379.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  380.             break;
  381.             
  382.         case pIndex:
  383.             theIndex = 0;
  384.             if (theWindowPropToken.tokenWindowToken.tokenWindow) 
  385.                 do
  386.                     theIndex++;
  387.                 while (theWindowPropToken.tokenWindowToken.tokenWindow != GetWindowPtrOfNthWindow(theIndex));
  388.                             
  389.             err = AECreateDesc(typeShortInteger, (Ptr)theIndex, sizeof(theIndex), dataDesc);
  390.             break;
  391.             
  392.         case pPageSetup:
  393.                 docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  394.                 
  395.                 HLock((Handle)docPtr->thePrintSetup);
  396.                 err = AECreateDesc(typeTPrint, (Ptr)*(docPtr->thePrintSetup),
  397.                                                                 sizeof(TPrint), dataDesc);
  398.                 HUnlock((Handle)docPtr->thePrintSetup);
  399.  
  400.  
  401.         case pSelection:
  402.             docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  403.             err = MakeSelectedTextObj(theWindowPropToken.tokenWindowToken.tokenWindow,
  404.                                                                  docPtr->theText, dataDesc);
  405.             break;
  406.     
  407.         default:
  408.             err = errAEEventNotHandled;
  409.     }
  410.  
  411. done:
  412.     if (tempDesc.dataHandle)
  413.         AEDisposeDesc(&tempDesc);
  414.             
  415.     return(err);
  416. } // GetWindowProperty
  417.     
  418. // -----------------------------------------------------------------------
  419. //        Name:             GetApplicationProperty
  420. //        Purpose:        Fills dataDesc with the requested application property.
  421. // -----------------------------------------------------------------------
  422.      
  423. OSErr    GetApplicationProperty(const AEDesc *theObjToken, AEDesc *result)
  424. {
  425.     Str255                name;
  426.     Boolean                isFront;
  427.     ApplPropToken        theApplPropToken;
  428.     AEDesc                aDesc = {typeNull, NULL},
  429.                         nullDesc = {typeNull, NULL};
  430.     Size                tokenSize;
  431.     DescType            theType;
  432.     ProcessInfoRec        processInfo;
  433.     ProcessSerialNumber    currentProcess;
  434.       short                refNum;
  435.     Handle                aHandle;
  436.       OSErr                err;
  437.     
  438.     err = AECoerceDesc(theObjToken, typeMyApplProp, &aDesc);
  439.     if (noErr != err) goto done;
  440.     
  441.     GetRawDataFromDescriptor(&aDesc, (Ptr)&theApplPropToken,
  442.                                         sizeof(theApplPropToken), &tokenSize);
  443.       
  444.     switch (theApplPropToken.tokenApplProperty)
  445.     {
  446.         case pBestType:      // Return the null descriptor representing
  447.         case pDefaultType:    // the application.
  448.             err = AEDuplicateDesc(&nullDesc, result);
  449.             break;
  450.         
  451.         case pClass:
  452.             theType = cApplication;
  453.             err = AECreateDesc(typeType, (Ptr)&theType, sizeof(DescType), result);
  454.             break;
  455.         
  456.         case pName:
  457.             // Clear out the name, and then call the process manager to get
  458.             // the string for the name of our application.
  459.             
  460.             name[0] = 0;
  461.             processInfo.processInfoLength = sizeof(processInfo);
  462.             processInfo.processName = name;
  463.             processInfo.processAppSpec = NULL;
  464.             
  465.             GetCurrentProcess(¤tProcess);
  466.             GetProcessInformation(¤tProcess, &processInfo);
  467.             
  468.             // Create an AEDesc returning the application name string
  469.             // returned by the process manager.
  470.  
  471.             err = AECreateDesc(typeChar, (Ptr)&name[1], name[0], result);
  472.             break;
  473.         
  474.         case pIsFrontProcess:
  475.             isFront = ! gInBackground;
  476.             err = AECreateDesc(typeBoolean, (Ptr)&isFront, sizeof(isFront), result);
  477.             break;
  478.  
  479.         case pVersion:
  480.             refNum = CurResFile();    // save current resource
  481.             UseResFile(gRefNum);    // set this resource to be current
  482.             aHandle = (Handle)Get1Resource((ResType)'vers', 1);
  483.             HLock(aHandle);
  484.             err = AECreateDesc(typeVersion, *aHandle, GetHandleSize(aHandle), result);
  485.             HUnlock(aHandle);
  486.             UseResFile(refNum);     // reset back to resource previously set
  487.             break;
  488.  
  489.         default:   // We don't handle the requested property.
  490.             err = errAEEventNotHandled;
  491.     }
  492.  
  493. done:
  494.     if (aDesc.dataHandle)
  495.         AEDisposeDesc(&aDesc);
  496.             
  497.     return(err);
  498. } // GetApplicationProperty
  499.